home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v9n16.arc / BOXES.PST next >
Text File  |  1990-08-24  |  981b  |  37 lines
  1.  
  2. % Define drawtext subroutine
  3.  
  4. /drawtext {
  5.      /Times-Roman findfont         % Select font and print
  6.      36 scalefont                  % a string centered on the
  7.      setfont                       % page
  8.      (Boxes by PostScript) stringwidth pop
  9.      612 exch sub 2 div 200 moveto
  10.      (Boxes by PostScript) show
  11. } def
  12.  
  13. % Define drawbox subroutine
  14.  
  15. /drawbox {
  16.      newpath
  17.      0 0 moveto                    % Move to lower left corner
  18.      100 0 lineto                  % Draw sides of box
  19.      100 100 lineto
  20.      0 100 lineto
  21.      closepath
  22.      setrgbcolor                   % Set color value
  23.      fill                          % Fill the box
  24. } def
  25.  
  26. % Main body of program
  27.  
  28. drawtext                              % Draw text
  29. 206 296 translate 0 .8 1 drawbox      % Draw box
  30. 50 50 translate .4 .6 0 drawbox       % Draw box
  31. 50 50 translate .8 .2 0 drawbox       % Draw box
  32. newpath
  33. showpage                              % Print the page
  34.  
  35.  
  36.  
  37.